CyberMycha Extra 2004 January/CyberMycha Extra 1-2004 (Poland) (Disc 2).bin/Pippi/color.dir/00004_movie.ls

Text File | 2001-09-12 | 937 b | 37 lines

global sessionObject, autoMoveObject, sndObject

on startMovie
  the soundDevice = "QT3Mix"
  autoMoveObject = new(script("autoMoveScript"))
  sessionObject = new(script("sessionObjectScript"))
  sndObject = new(script("soundScript"))
  checkQT()
  checkColordepth()
  puppetTempo(12)
  go(the frame + 1)
end

on checkQT
  if the machineType = 256 then
    qt = the moviePath & "QuickTimeInstaller.exe"
  else
    qt = the moviePath & "Zainstaluj QuickTime"
  end if
  if the quickTimePresent = 0 then
    open(qt)
    quit()
  else
    if QuickTimeVersion() < 5 then
      open(qt)
      quit()
    end if
  end if
end

on checkColordepth
  if the colorDepth < 16 then
    alert("Aby uruchomiæ grê, ekran Twojego monitora musi pracowaæ w palecie conajmniej 16 bitowej (High Color). Aby zmieniæ ustawienia ekranu, otwórz Panel Sterowania, kliknij dwa razy na ikonie Ekran i wejdŸ w zak³adkê Ustawienia.")
    quit()
  end if
end